home *** CD-ROM | disk | FTP | other *** search
/ Inside the White House / Inside the White House.iso / export.dir / 00006.ls < prev    next >
Encoding:
Text File  |  1995-07-11  |  435 b   |  17 lines
  1. on mouseDown
  2.   global rValue
  3.   if pushButton() then
  4.     if selection() then
  5.       set rValue to "ExpSel"
  6.       set the text of cast "ExpText" to the selection
  7.       if exportText(field "ExpText") then
  8.         tell the stage
  9.           forgetExp()
  10.         end tell
  11.       end if
  12.     else
  13.       alert("There is no text selected.  Please select an area to export or click Export All to export the entire text box.")
  14.     end if
  15.   end if
  16. end
  17.